ROM Magic/ROM Magic.iso/pc/12_dorei/winprog/shared.dxr/00449.ls

Text File | 1995-05-12 | 5.9 KB | 170 lines

on exitalart
  global status, username, cursor128, cursorwait, cursor130, cursor135, cursor145, cursor146, cursor147
  eracemenudownbutton()
  set status to "exitAlart"
  cursor(cursor128)
  puppetSprite(20, 1)
  set the type of sprite 20 to 1
  set the ink of sprite 20 to 36
  set the foreColor of sprite 20 to 255
  set the backColor of sprite 20 to 0
  set the castNum of sprite 20 to the number of cast "exitDialog"
  set the locH of sprite 20 to 320
  set the locV of sprite 20 to 200
  puppetSprite(21, 1)
  set the type of sprite 21 to 1
  set the ink of sprite 21 to 0
  set the foreColor of sprite 21 to 255
  set the backColor of sprite 21 to 0
  set the castNum of sprite 21 to the number of cast "cancel,up"
  set the locH of sprite 21 to 190
  set the locV of sprite 21 to 240
  puppetSprite(22, 1)
  set the type of sprite 22 to 1
  set the ink of sprite 22 to 0
  set the foreColor of sprite 22 to 255
  set the backColor of sprite 22 to 0
  set the castNum of sprite 22 to the number of cast "yes,up"
  set the locH of sprite 22 to 320
  set the locV of sprite 22 to 240
  put "Mr. " & username && "!" into field "helpMessage"
  puppetSprite(23, 1)
  set the type of sprite 23 to 7
  set the ink of sprite 23 to 36
  set the foreColor of sprite 23 to 255
  set the backColor of sprite 23 to 0
  set the castNum of sprite 23 to the number of cast "helpMessage"
  set the locH of sprite 23 to 202
  set the locV of sprite 23 to 140
  updateStage()
end

on demoalart
  global status, username, cursor128, cursorwait, cursor130, cursor135, cursor145, cursor146, cursor147
  eracemenudownbutton()
  set status to "exitAlart"
  cursor(cursor128)
  puppetSprite(20, 1)
  set the type of sprite 20 to 1
  set the ink of sprite 20 to 36
  set the foreColor of sprite 20 to 255
  set the backColor of sprite 20 to 0
  set the castNum of sprite 20 to the number of cast "demoMessage"
  set the locH of sprite 20 to 320
  set the locV of sprite 20 to 200
  puppetSprite(21, 1)
  set the type of sprite 21 to 1
  set the ink of sprite 21 to 0
  set the foreColor of sprite 21 to 255
  set the backColor of sprite 21 to 0
  set the castNum of sprite 21 to the number of cast "ret,up"
  set the locH of sprite 21 to 378
  set the locV of sprite 21 to 215
end

on helpmenu
  global status, username, helpstatus, getvideonum, getvideosum, cursor128, cursorwait, cursor130, cursor135, cursor145, cursor146, cursor147
  eracemenudownbutton()
  set status to "helpMenu"
  cursor(cursor128)
  eyeon()
  puppetSprite(20, 1)
  set the type of sprite 20 to 1
  set the ink of sprite 20 to 36
  set the foreColor of sprite 20 to 255
  set the backColor of sprite 20 to 0
  set the castNum of sprite 20 to the number of cast "help1"
  set the locH of sprite 20 to 115
  set the locV of sprite 20 to 180
  puppetSprite(21, 1)
  set the type of sprite 21 to 1
  set the ink of sprite 21 to 0
  set the foreColor of sprite 21 to 255
  set the backColor of sprite 21 to 0
  set the castNum of sprite 21 to the number of cast "closeHelp,up"
  set the locH of sprite 21 to 186
  set the locV of sprite 21 to 204
  checkvideosum()
  set helpnum to random(7)
  if helpstatus = EMPTY then
    if helpnum = 1 then
      put username && " ﾃ‡ﾅｽﾃ‡ﾃ津②" && RETURN & "ﾃ｢ﾂｩﾃｪFﾃ‡ﾂ｢ﾃｪﾃ佚‡ﾂ敕ｭﾂ湘‡ﾃ療‡ﾆ津｢ﾅ ﾃ‡ﾅｽﾃ‡ﾂ｢!" into field "helpMessage"
    end if
    if helpnum = 2 then
      put username && " ﾃ‡ﾅｽﾃ‡ﾃ津②" && RETURN & "ﾃ‡ﾂｱﾃ‡ﾃε映ﾃ嘉‡ﾃｮﾂｼﾃ‡ﾂｼﾃ‡ﾃ陛…uﾃｪVﾃｬzﾃｳﾃ催｢窶佚㈸ﾃ…vﾃ‡ﾃε‡窶ｺﾃ‡ﾂ敕･ﾂｩﾃ‡ﾃ暗‡ﾂｱﾃ‡ﾃ静‡邃｢ﾃ‡ﾂｼﾃ‡ﾂｴﾃ‡窶ｹﾃ‡ﾃ敕③" into field "helpMessage"
    end if
    if helpnum = 3 then
      put username && " ﾃ‡ﾅｽﾃ‡ﾃ津②" && RETURN & "ﾃｳﾅ津ｪFﾃ‡ﾃεｪﾃ佚‡窶ｦﾃ｢ﾃｽﾃ‡ﾂｩﾃ‡邃｢ﾃ‡窶 ﾃ‡ﾃ凝‡ﾂｪﾃ‡ﾂｧﾃ‡ﾂｼﾃ‡ﾃ!" into field "helpMessage"
    end if
    if (helpnum = 4) or (helpnum = 5) then
      put username && " ﾃ‡ﾅｽﾃ‡ﾃ津②" && RETURN & getvideosum && " ﾃｱ{ﾃ‡ﾃε詠ﾃ映ﾃ迂ﾃ影ﾃ…[ﾃ益ﾃ‡ﾂ敕ｬﾂｸﾃｩﾃ凝‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾃｽﾃ③" into field "helpMessage"
    end if
    if (helpnum = 6) or (helpnum = 7) then
      set rest to 18 - getvideosum
      put username && " ﾃ‡ﾅｽﾃ‡ﾃ津②" && RETURN & "ﾃ‡ﾂｱﾃ‡ﾃε映ﾃ嘉‡ﾃｮﾂｼﾃ‡ﾂｼﾃ‡ﾃ陛嘉„ﾃ…[ﾃ詠ﾃ…[ﾃ｢ﾃ津ｩﾂｾﾃ‡ﾃεｯKﾃｳvﾃ‡邃｢ﾃ‡窶 ﾃ‡ﾃ凝‡窶ｹﾃ‡ﾃｾﾃ‡ﾃ津③" into field "helpMessage"
    end if
    set helpstatus to "once"
  else
    if helpnum = 1 then
      put username && " ﾃ‡ﾅｽﾃ‡ﾃ津②" && RETURN & "ﾃ､ﾃ甘ｭﾂ｣ﾃ‡ﾂ｡ﾃ‡ﾆ津｢ﾅ ﾃ‡ﾅｽﾃ‡ﾂ｢ !" into field "helpMessage"
    end if
    if helpnum = 2 then
      put username && " ﾃ‡ﾅｽﾃ‡ﾃ津②" && RETURN & "ﾃ‡ﾂｮﾃ･ﾅｽﾃ｣Cﾃ‡ﾂｼﾃ‡ﾃ敕‡ﾂｩ !" into field "helpMessage"
    end if
    if helpnum = 3 then
      put "ﾃ‡ﾂｱﾃ‡ﾃ津‡窶ｦﾃ‡ﾃｸﾃ‡ﾃŒ !" & RETURN & username && " ﾃ‡ﾅｽﾃ‡ﾃ津②" into field "helpMessage"
    end if
    if helpnum >= 4 then
      set rest to 18 - getvideosum
      put username && " ﾃ‡ﾅｽﾃ‡ﾃ津②" && RETURN & "ﾃ‡ﾂｱﾃ‡ﾃε映ﾃ嘉‡ﾃｮﾂｼﾃ‡ﾂｼﾃ‡ﾃ陛…uﾃｪVﾃｬzﾃｳﾃ催｢窶佚㈸ﾃ…vﾃ‡ﾃε‡窶ｺﾃ‡ﾂ敕･ﾂｩﾃ‡ﾃ暗‡ﾂｱﾃ‡ﾃ静‡邃｢ﾃ‡ﾂｼﾃ‡ﾂｴﾃ‡窶ｹﾃ‡ﾃ敕③" into field "helpMessage"
    end if
  end if
  puppetSprite(22, 1)
  set the type of sprite 22 to 7
  set the ink of sprite 22 to 36
  set the foreColor of sprite 22 to 255
  set the backColor of sprite 22 to 0
  set the castNum of sprite 22 to the number of cast "helpMessage"
  set the locH of sprite 22 to 30
  set the locV of sprite 22 to 140
  updateStage()
end

on openmouse
  global systemdata
  if item 2 of systemdata = "Windows" then
    if random(3) <> 3 then
      exit
    end if
  end if
  puppetSprite(23, 1)
  set the type of sprite 23 to 1
  set the ink of sprite 23 to 0
  set the foreColor of sprite 23 to 255
  set the backColor of sprite 23 to 0
  set the castNum of sprite 23 to the number of cast "openMouse"
  set the locH of sprite 23 to 111
  set the locV of sprite 23 to 97
  updateStage()
end

on closemouse
  global systemdata
  if item 2 of systemdata = "Windows" then
    if random(3) <> 3 then
      exit
    end if
  end if
  puppetSprite(23, 0)
  set the locH of sprite 23 to -500
  updateStage()
end

on checkvideosum
  global getvideonum, getvideosum
  set getvideosum to 0
  repeat with n = 1 to 18
    set getvideosum to getvideosum + value(char n of getvideonum)
  end repeat
end